home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / sptmbr11.lha / clx / exclMakefile < prev    next >
Lisp/Scheme  |  1991-06-10  |  5KB  |  169 lines
  1. # 
  2. #  Makefile for CLX
  3. #  (X11 R4.4 release, Franz Allegro Common Lisp version)
  4. #
  5.  
  6. # *************************************************************************
  7. # * Change the next line to point to where you have Common Lisp installed *
  8. # *        (make sure the Lisp doesn't already have CLX loaded in)        *
  9. # *************************************************************************
  10. CL    = /usr/local/bin/cl
  11.  
  12. RM    = /bin/rm
  13. SHELL    = /bin/sh
  14. ECHO    = /bin/echo
  15. TAGS    = /usr/local/lib/emacs/etc/etags
  16.  
  17. # Name of dumped lisp
  18. CLX    = CLX
  19.  
  20. CLOPTS    = -qq
  21.  
  22. # Use this one for Suns
  23. CFLAGS    = -O -DUNIXCONN
  24. # Use this one for Silicon Graphics & Mips Inc MIPS based machines
  25. # CFLAGS = -O -G 0 -I/usr/include/bsd
  26. # Use this one for DEC MIPS based machines
  27. # CFLAGS = -O -G 0 -DUNIXCONN
  28. # Use this one for HP machines
  29. # CFLAGS = -O -DSYSV -DUNIXCONN
  30.  
  31.  
  32. # Lisp optimization for compiling
  33. SPEED    = 3
  34. SAFETY    = 0
  35.  
  36.  
  37. C_SRC    = excldep.c socket.c
  38. C_OBJS    = excldep.o socket.o
  39.  
  40. L_OBJS    = defsystem.fasl package.fasl excldep.fasl depdefs.fasl clx.fasl \
  41.     dependent.fasl exclcmac.fasl macros.fasl bufmac.fasl buffer.fasl \
  42.     display.fasl gcontext.fasl requests.fasl input.fasl fonts.fasl \
  43.     graphics.fasl text.fasl attributes.fasl translate.fasl keysyms.fasl \
  44.     manager.fasl image.fasl resource.fasl
  45.  
  46. L_NOMACROS_OBJS    = package.fasl excldep.fasl depdefs.fasl clx.fasl \
  47.     dependent.fasl buffer.fasl display.fasl gcontext.fasl \
  48.     requests.fasl input.fasl fonts.fasl graphics.fasl text.fasl \
  49.     attributes.fasl translate.fasl keysyms.fasl manager.fasl image.fasl \
  50.     resource.fasl
  51.  
  52. L_SRC    = defsystem.cl package.cl excldep.cl depdefs.cl clx.cl \
  53.     dependent.cl exclcmac.cl macros.cl bufmac.cl buffer.cl \
  54.     display.cl gcontext.cl requests.cl input.cl fonts.cl \
  55.     graphics.cl text.cl attributes.cl translate.cl keysyms.cl \
  56.     manager.cl image.cl resource.cl
  57.  
  58. # default and aliases
  59. all:    no-clos
  60. # all:    partial-clos
  61. compile-CLX-for-CLUE:    compile-partial-clos-CLX
  62. clue:    partial-clos
  63.  
  64. #
  65. # Three build rules are provided: no-clos, partial-clos, and full-clos.
  66. # The first is no-clos, which results in a CLX whose datastructures are
  67. # all defstructs.  partial-clos results in xlib:window, xlib:pixmap, and
  68. # xlib:drawable being CLOS instances, all others defstructs.  full-clos
  69. # makes all CLX complex datatypes into CLOS instances.
  70. #
  71. # (note that the :clos feature implies native CLOS *not* PCL).
  72. #
  73.  
  74. no-clos:    $(C_OBJS) compile-no-clos-CLX cat
  75.  
  76. #
  77. # This rule is used to compile CLX to be used with XCW version 2, or CLUE.
  78. #
  79. partial-clos:    $(C_OBJS) compile-partial-clos-CLX cat
  80.  
  81. full-clos:    $(C_OBJS) compile-full-clos-CLX cat
  82.  
  83.  
  84. c:    $(C_OBJS)
  85.  
  86.  
  87. compile-no-clos-CLX:    $(C_OBJS)
  88.     $(ECHO) " \
  89.     (set-case-mode :case-sensitive-lower) \
  90.     (proclaim '(optimize (speed $(SPEED)) (safety $(SAFETY)))) \
  91.     #+(version>= 4 0) (pushnew :clx-ansi-common-lisp *features*) \
  92.     (load \"defsystem\") \
  93.     #+allegro (compile-system :clx) \
  94.     #-allegro (compile-clx) \
  95.     #+allegro (compile-system :clx-debug)" \
  96.     | $(CL) $(CLOPTS) -batch
  97.  
  98. compile-partial-clos-CLX:    $(C_OBJS)
  99.     $(ECHO) " \
  100.     #+clos (set-case-mode :case-sensitive-lower) \
  101.     #-clos (setq excl::*print-nickname* t) \
  102.     (proclaim '(optimize (speed $(SPEED)) (safety $(SAFETY)))) \
  103.     (unless (or (find-package 'clos) (find-package 'pcl)) \
  104.       (let ((spread (sys:gsgc-parameter :generation-spread))) \
  105.         (setf (sys:gsgc-parameter :generation-spread) 1) \
  106.         (require :pcl) \
  107.         (provide :pcl) \
  108.         (gc) (gc) \
  109.         (setf (sys:gsgc-parameter :generation-spread) spread))) \
  110.     #+(version>= 4 0) (pushnew :clx-ansi-common-lisp *features*) \
  111.     (load \"defsystem\") \
  112.     (load \"package\") \
  113.     (setq xlib::*def-clx-class-use-defclass* '(xlib:window xlib:pixmap xlib:drawable)) \
  114.     #+allegro (compile-system :clx) \
  115.     #-allegro (compile-clx \"\" \"\" :for-clue t) \
  116.     #+allegro (compile-system :clx-debug)" \
  117.     | $(CL) $(CLOPTS) -batch
  118.  
  119. compile-full-clos-CLX:    $(C_OBJS)
  120.     $(ECHO) " \
  121.     #+clos (set-case-mode :case-sensitive-lower) \
  122.     #-clos (setq excl::*print-nickname* t) \
  123.     (proclaim '(optimize (speed $(SPEED)) (safety $(SAFETY)))) \
  124.     (unless (or (find-package 'clos) (find-package 'pcl)) \
  125.       (let ((spread (sys:gsgc-parameter :generation-spread))) \
  126.         (setf (sys:gsgc-parameter :generation-spread) 1) \
  127.         (require :pcl) \
  128.         (provide :pcl) \
  129.         (gc) (gc) \
  130.         (setf (sys:gsgc-parameter :generation-spread) spread))) \
  131.     #+(version>= 4 0) (pushnew :clx-ansi-common-lisp *features*) \
  132.     (load \"defsystem\") \
  133.     (load \"package\") \
  134.     (setq xlib::*def-clx-class-use-defclass* t) \
  135.     #+allegro (compile-system :clx) \
  136.     #-allegro (compile-clx \"\" \"\" :for-clue t) \
  137.     #+allegro (compile-system :clx-debug)" \
  138.     | $(CL) $(CLOPTS) -batch
  139.  
  140.  
  141. cat:
  142.     -cat $(L_NOMACROS_OBJS) > CLX.fasl
  143.  
  144.  
  145. load-CLX:
  146.     $(ECHO) " \
  147.     (let ((spread (sys:gsgc-parameter :generation-spread))) \
  148.       (setf (sys:gsgc-parameter :generation-spread) 1) \
  149.       (load \"defsystem\") \
  150.       #+allegro (load-system :clx) \
  151.       #-allegro (load-clx) \
  152.       (gc :tenure) \
  153.       (setf (sys:gsgc-parameter :generation-spread) spread)) \
  154.     (gc t)" \
  155.     '(dumplisp :name "$(CLX)" #+allegro :checkpoint #+allegro nil)' \
  156.     "(exit)" | $(CL) $(CLOPTS)
  157.  
  158. clean:
  159.     $(RM) -f *.fasl debug/*.fasl $(CLX) core $(C_OBJS) make.out
  160.  
  161.  
  162. install:
  163.     mv CLX.fasl $(DEST)/clx.fasl
  164.     mv *.o $(DEST)
  165.  
  166.  
  167. tags:
  168.     $(TAGS) $(L_SRC) $(C_SRC)
  169.